package Show::Get;
use strict;
use Carp qw/confess/;

sub new{
 my $pkg = shift;
 my %se = @_;
 my $se = bless \%se;
}

sub controller{
 my $se = shift;
 if ( !@_ ){
    $se->{controller} or confess "set controller before!";
    return $se->{controller};
 }    
 $se->{controller} = shift;
 return $se;
}

sub r_name{
 my $se = shift;
 return $se->{route_name}||'' if !@_;
 $se->{route_name} = shift||'';
 return $se;
}

sub r_params{
 my $se = shift;
 $se->{r_params}||=[];
 return @{ $se->{r_params} } if !@_;
 @{ $se->{r_params} } = @_;
 return $se;
}

sub human{
 my $se = shift;
 if (!@_){
    return $se->{human}||'';
 }
 else{
    $se->{human} = shift;
    return $se;
 }
}

1;